;;; This file is part of guix-bavier.git
;;; Copyright © 2020 Eric Bavier <bavier@posteo.net>
;;; License: GPLv3+

(define-module (bavier packages admin)
  #:use-module (guix build-system gnu)
  #:use-module (guix git-download)
  #:use-module (guix packages)
  #:use-module (gnu packages)
  #:use-module ((guix licenses) #:prefix license:))

(define-public ltunify
  (let ((commit "b68dc9af6db53de231d5ac71f9b6ba2ff3057a68")
        (revision "0"))
    (package
      (name "ltunify")
      (version (git-version "0.3" revision commit))
      (source
       (origin
         (method git-fetch)
         (uri (git-reference
               (url "https://git.lekensteyn.nl/ltunify")
               (commit commit)))
         (file-name (git-file-name name version))
         (sha256
          (base32
           "1i6ya846jxi1y29h59qc2hkjvdlhsdw6kgm4clchpxx1mjrqjv3b"))))
      (build-system gnu-build-system)
      (arguments
       `(#:make-flags
         (list "CC=gcc"
               (string-append "bindir=" %output "/bin")
               (string-append "udevrulesdir=" %output "/etc/udev/rules.d"))
         #:phases
         (modify-phases %standard-phases
           (delete 'configure)
           (replace 'build
             (lambda* (#:key make-flags #:allow-other-keys)
               (apply invoke "make" "ltunify" make-flags)))
           (delete 'check))))
      (home-page "https://lekensteyn.nl/logitech-unifying.html")
      (synopsis "Pair and unpair Logitech Unifying devices")
      (description "@code{ltunify} allows you to pair additional devices like
keyboards and mice to your Logitech Unifying receiver, unpair existing
devices, and list information about connected devices.")
      (license license:gpl3+))))
